88888 


SSSSS88888 


PPPPPPPPPPPP 
PPPPPPPPPPPP 


PPPPPPPPPPPP 
PPP PPP 


PPP PPP 
PPPPPPPPPPPP 

PPPPPPPPPPPP 
PPPPPPPPPPPP 


AOMAAAOIOAOAIOOOONY 
AOMVOOAOOOAIAIAIOOOOY 
AOAOAOOAQAAIOAOOOOONY 


000000000 

000000000 

000000000 
000 


000 
000000000 
000060000 
000000000 


**F ILE**1D**OPCOMRQST 


000000 PPPPPPPP cccccccc 000000 MM MM RRRRRRRR QQQQaaQ SSSSSSSS TTTTTTTTTT 
000000 PPPPPPPP ccccccce 000000 MM MM RRRRRRRR QQQQQQ SSSSSSSS_ TTTTTTTTIT 

00 00 PP PP Ct 00 00 MMMM MMMM RR RR QQ QQ Ss TT 

00 00 PP PP CC 00 00 MMMM MMMM RR RR QQ QQ SS TT 

00 00 PP PP CC 00 00 MM MM MM RR RR QQ QQ Ss TT 

00 00 PP PP CC 00 00 MM MM MM RR RR QQ Qa Ss TT 

00 00 PPPPPPPP cc 00 00 MM RRRRRRRR QQ QQ Ett TT 

00 00 PPPPPPPP cc 00 0O MM MM RRRRRRRR QQ QQ SSSSS TT 

00 00 PP cc 00 00 MM MM RR RR QQ QQ QQ SS TT 

00 00 PP cc 00 00 MM MM RR RR QQ aa QQ SS TT 

00 00 PP cc 00 0O MM MM RR RR QQ QQ S$ TT eeee 

00 00 PP cc 00 00 MM MM RR RR QQ QQ SS TT esee 
000000 PP cccccccc 000000 MM MM RR RR QQQQ QQ SSSSSSSS TT cece 
000000 PP cccccccc 000000 MM MM RR RR QQQQ QQ SSSSSSSS TT cece 

LL III SSSSSSSS 

LL III] SSSSSSSS 

LL I] SS 

LL I] S$ 

LL I] SS 

LL I] Ss 

LL I] SSSSSS 

LL I] SSSSSS 

LL I] SS 

LL I] $$ 

LL I] SS 

LL I] Ss 

LLLLLLLLLLE III] SSSSSSSS 

LLELLLLLLLL III] SSSSSSSS 
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] 
| 
| 

; 1 } MODULE OPCSOPCOMRQST * anGUAge (BLISS32) | 

; g 808 IDENT = 04-000" 

3 ¢ Be )= 

: § 096 RRR RARAA RARER EAAA AAA ERATE AERA AAERAAAEAARRERAKERERERE EEE | 

: '@ « 

; #8 008 0 i* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY * 

i. 2 009 0 '* DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. * 

3 19 i 2 ALL RIGHTS RESERVED. : 

; Hd 

3 \¢ \¢ '® THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 

3 1 01 'w ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 

; 14 014 '® INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 

H 15 0015 '* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 

; 16 8018 Q !* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 

3 i? ete 0 ? TRANSFERRED. : 

; 19 0019 '® THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 

: 20 B05¢ '® AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT a 

; 1 oo 1 :* CORPORATION. : | 

3 i 

; ’ 00 : 0 '® DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 

: ¢ Be $ 9 :* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. ’ | 

: '® 

3 6 0026 '® * 

5 7 00 7 See RRR RARER AAA ARARAEAAAAERARARERAEEE 

; 0028 0 

: 39 0029 0 +e | 

: 0 0030 0 ! FACILITY: 

; 0031 0! 

3 3 ite 0! OPCOM 

. & 003 8 ‘ 

H 34 0034 ! ABSTRACT: 

. = 0035 0! ; . ; 

; = 0036 0! This module contains the specialized logic to service 

3 $ i544 0 : a@ particular type of request sent by a user to OPCOM. 

3 3$ 0039 6 ! Environment: 

:; 460 0040 0! 

on S| 0041 ! VAX/VMS operating system. 

BER 

3; «4 ! Author: 

: «(44 sk: 8 : 

; | (45 045 : Steven T. Jeffreys 

3; 6446 Bd08 0! 

: 67 047 0 ! Creation date: 

: «648 38 0! 

; «649 4 ' March 10, 1981 

; SO 3239 ! 

.. 3 51 ! Revision history: 

3 28 0036 } 

cys 5 ‘ v03-002 CWH3001 CW Hobbs 16-Sep-1983 

2 ze bee Use jacket routines for VM calls. 

; 36 056 0 | vO3-001 CwH3001 Cw Hobbs 30-Jul-1983 | 

es 3 05 : Various and sundry things to make OPCOM distributed 
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LEAEM 


0088 


H across the cluster. 
; v02-0164 

i 

: 


BEGIN 


LIBRARY ‘SYSSLIBRARY:LIB.L32'; 
LIBRARY ‘LIBS:OPCOMLIB'; 


FORWARD ROUTINE 
REQUEST_HANDLER : NOVALUE 
REQUEST-CLM_HANDLER : NOVALUE 
REQUEST—CLM_CHECK_HANDLER : NOVALUE; 


BUILTIN 
INSQUE, 
REMQUE; 


EXTERNAL 
NOD “HEAD : V 
GLOBAL_STATUS : BI] 
REQUEST_NUMBER : LO 


EXTERNAL ROUTINE 
at REQUEST 


DEALLOCATE_MCB : NOVALUE 
DEALLOCATE Roce : NOVALUE, 


LOG_MESSAGE 
NOTIFY LISTED_OPERATORS, 


eaaow 


18s 
14°$ 


$TJ0164 Steven T. Jeffreys, 
Make references to library routines use general addressing mode. 


38c 93:86:8, — YORcom. She Sbpcomndsy 043-1 


08-Feb-1982 


! Start of OPCOMRQST 


Handle normal request 
Handle request from remote node 
Check to see if request is in database 


Insert entry onto a queue 
Remove entry from a queue 


Global status bits 
Current request # 


Common sanity checks 

Convert cluster message to RQCB 
Send RQCB to remote nodes 
Cluster-unique sequence incrementor 
Dispose of an MCB 

Dispose of an RQCB 

Write random string to log file 
Find a given OCD 

Format a message and create an MCB 
Write a message to a logfile ; 
Notify operators on an operator List 
Send reply to a requestor 

Length with trailing spaces trimmed 


Page 


S3 
Se 


1SBen-1986 01:76:48 


OPCSOPCOMROST AX=11 Bliss-32 V4.0-74 Page 3 OP¢ 
yO6=005 OPCOM. SRCJOPCOMRGST -B3 31 125 v04 
H } : 244 ! GLOBAL ROUTINE REQUEST_HANDLER (BUFFER_DESC) : NOVALUE = : 
. > § 101 1 !e4 ; 
; } ! ¢ } } Functional description: : 
3 \ 5 ; ¢ } This routine is the handler for all REQUEST messages received by OPCOM. : 
: edd : 
3 ! Input: ; 
; 199 108 1! ; 
; 110 109 1! BUFFER_DESC : The address of a — buffer descriptor that : 
; 11; 119 ! } describes the buffer containing the message. : 
3 11 18 1! Implicit Input: : 
: 116 15 7! : 
: 6115 1144 1! None. $ 
; 19 1158 1! 3 
s Fi 1'8 1 ! Output: : 
s 118 117 1! : 
3; «(119 0118 1! None. : 
; 120 0119 1! : 
: 121 0120 1 ! Implict output: ; 
. 3 ¢ Q121 1! : 
_. 01 ¢ 1! Some accounting data will be updated ; 
3 iss 3 ? : } to reflect the receipt of the message. : 
; 158 0125 1 ! Side effects: : 
s ter 0126 1! $ 
; 128 0127 1! None. : 
; 129 01 8 ,! : 
; 130 01 1 ! Routine value: : 
3 351 0130 1! : 
3 136 0131 1! None. : 
4 1 01 ¢ 1 !<< . 
 % B18 1 F 
$ ie a 3 2 BEGIN ! Start of REQUEST_HANDLER : 
$ ! 7 0136 MAP : 
: 139 0138 BUF FER_DESC : $ref_bblock; ; 
; «(161 0140 LOCAL : 
3 146 0141 MESSAGE_VECTOR : VECTOR C9, LONG] ! Message info a es ie ; 
: 14 O148 ON_BUF : VECTOR $4, evTE. i Buffer for preposition (‘* on "* node) ; 
: 144 014 ON_DSC : VECTOR C2, LONG ! Desc for preposition : 
3 «6145 0144 ITIAL (64, ON_BUF), : 
3 146 0145 RQCB : Sref_bblock, : RQCB data structure : 
: «146 0146 ocd : Sref_bblock, ! OCD data structure ‘ 
; 148 pier MCB : $Sref_bblock, ! MCB data structure ; 
: 149 148 MSG : Sref_bblock, : Pointer to user request : 
: 150 149 FOU : LONG, ' Boolean ; 
3 6151 150 SCOPE LONG, ' Scope of request ; 
3 13¢ 151 SCOPE LIMIT LONG, : Loop control : 
; 15 13¢ STATUS LONG; : 
: 154 15 ° 
5, ae 154 EXTERNAL ° 
; 156 0155 LCL_NODENAME : Sbblock; ! Name of local node (DECnet or cluster) : 


D 13 
OPCSOPCOMROQST 16-Sep-1984 36:41 AX-11 Bliss-32 V4.0-74 P 4 
y0%+000 14 att 94:38:84 LOPCOM. SRCTOPCOMRGST .83 31 = (2) 
! 
i Make sure there is enough data in the request. 


-BUFFER_DESC CDSCSW_LENGTH] LSS (OPCYK_COMHDRSIZ + OPCSK_REQUEST_MIN_SIZE) 


Ww 
won 


F 
HE 


- —— 


RETURN; ! Ignore the request 


PACOIMA 


Do some common sanity checks. 


. 
IF NOT CHECK_REQUEST (.BUFFER_DESC, RQCB) 
THEN 


RETURN; 
MESSAGE _VECTOR (0) = 0; ! Assume no errors 
i See if the requestor is issuing this request on another's behalf. 
! If so, and the requestor does not have the privilege to do so, 
then dismiss the request. 
if .ROCB CROCB_L_SENDERUIC] NEQ .ROCB CROCB_L_UIC) | 
IF (NOT .$bblock CROCB CROCB_L_PRIVMASK1], PRV$V_OPER]) | 
IF NOT ((.$bblock CRQCB CRQCB_L_SENDERUIC], 2,0,16,0] EQL .$bblock CRQCB CRQCB_L_UICJ, 2,0,16,0]) AN 
(.$bblock CROCB CROCB-L-PRIVMASK1J, PRV$vV_GROUP])) 
BEGIN 
MESSAGE_VECTOR (0) 
VECT 


= OPC$_ILLRQST; 
MESSAGE-VECTOR [1] = 0; 
END; 


APU OOS MOU RUIN ODE On ma OOo Oe 


C909 C9 C9 C9 C8 I NIN SIN SIENNA O 


MSG = .BUFFER_DESC EBSCSA_POINTER? + OPCSK_ COMHDRSIZ; 


ROCB CROCB_L_TEXT_LEN COPC$W_REQUEST_LENGTHI; 


C800 0900 0008 SIN NIN NINN NINO OOOO o 


ne ee we enn fn nw mm en iw ww ww ww fn fw fan fo lololalalolololololelololeleloleololelelelolololol ola} 


PRIPIPIPIPIPIPINIAIAIM INI at at et tk kd kk tt ho ho oh oo ho ot 


i] 
} Create a descriptor within the RQCB to point to the request text. 
4 
3 
4 
4 


Be Se Se Se Ge Be Ge Be Se Se Se Se Ge Se Se Ge Fe Ge Fe Se Se Ge Se Se Se Se Se Se Ge Se Fe Se Se ae Fe Se SH Se Se Se Se Se FH Se Fe Se Se Se Se Se ee Se es FH Se Se ee 


Hf 
9 
4 IF (.RQCB CROCB_L-TEXT_LEN] GTR 0) 
91 THEN 
4 BEGIN 
+4 3e : Create a buffer for the request text and copy the text to the buffer. | 
4 39 if NOT (STATUS = OPCSGET_VM (RQCB CRQCB_L_TEXT_LEN], RQCB CRQCB_L_TEXT_PTRI)) 
199 98 BEGIN 
30 99 DEALLOCATE_RQCB (.RQCB); 
4 +} Angas 
08 4 CHSMOVE (.ROCB CROCB_L_TEXT_LENJ, MSG COPCST_REQUEST_TEXT], .RQCB CRQCB_L_TEXT_PTR)); | 
05 Be ELSE 
5] 5 BEGIN 
0 06 ! : 
+4 34 : There is no request text. Inform the requestor that this is not allowed. 
10 09 MESSAGE _VECTOR fo} = OPC$_ILLRQST; 
11 10 MESSAGE_VECTOR (1) = 0; 
\ 11 END; 
1 12 ! 
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' 
! 
! 
' 
i if 
! 
i 


WHIL 


RQCB 
RQCB 
If . 
HEN 


! is unspe 


If . 
THEN 


i 


1 


“220-1966 0:36:41 


! Find an OCD that can handle this request. The OCD is selected 


AX-11 Bliss-32 oF gh 6 
OPCOM. SRC JOPCOMROST .B32;1 


cording $9 the SCOPE and UIC of the requestor. If phe SCOPE 
ifie n 


d, 


then look for o 


5 geretor coverage start 
least privileged scope and continuing to the most privileged. 


in the 


no OCD is found, then dismiss the request. 


E (.SCOPE GEQ 
IF NO 


8.8 
SC 


SCOPE); 
OPE_LIMIT) AND (NOT .FOUND) 


F (.RQCB CROCB_B_SCOPE] EQL OPCSK_UNSPEC) 
SCOPE_LIMIT = OPCSK_SYSTEM 

SCOPE LIMIT = .ROCB CROCB_B_ SCOPE; 
SCOPE = .ROCB CROC 


T (FOUND = FIND_OCD (.SCOPE, .RQCB 


BEGIN 
MESSAGE_VECTOR 
MESSAGE VECTOR 


0 
1 


interested operators on 


N 

SCOPE = .SCOPE =- 1; 
IF NOT .FOUND 
THEN 


J] = OPCS$_NOPERATOR; 
J=0; 


, MESSAGE_VECTOR); 
;RQCB) ; 


1 

' Set the scope of the request. 

} Format the request message and send it to all 
i 


RQCB_L_OCD] = .OCD; 


RQCB-B SCOPE) = .OcD COC 


LCL_NOBERAME 


DSC 


D_B SCOPE] 
$W_LENGTH]"NEQ 0 


If there is an error message to output, 
do so and dismiss the request. 


iF .MESSAGE_VECTOR [OJ NEQ 0 
THEN 


MESSAGE VECTOR); 


dO 
RQCB_L_UIC], OCD)) 


! No operator coverage 


he OCD's operator List. 


' Save OCD address 
! Set request scope 


BEGIN 
if ad (STATUS = SGETMSG (MSGID=OPCS$_ON_NODE, MSGLEN=ON_DSC, BUFADR=ON_DSC, FLAGS=1)) 
Ssignal_stop (.STATUS); 


ON pst (0) = 0 
rote CROCB_W_R 


EPL 


YMBX] NEQ 0 


BEGIN 
neck EE NUMBER = CLUSUTIL_INCR SEQUENCE 
rocB (RO 


CB_LLR 
MESSAGE _VECTTOR 


"fo 


NUM] = REQUEST 
J] = opc$_UseRasT; 


UMBER ; 


! Set the message code 


' Request with reply expected 
(.REQUEST_NUMBER); ! Increment the number of request 

' Set the request number 

! Set the message code 


OP( 
v0« 


BEGIN 


None of the operators on the OCD's operator List were 
enabled to receive the request. If no reply is expected, 
just return. If a reply was expected, then cancel the 
request and log the cancelation. 


ROCB CROCB_W_REPLYMBX) NEQ 0 


i 
i 
i 
T 


F 13 
OPC OMRQST 16-Sep-1984 01:36: AX-11 Bliss-32 V4.0-74 Page 6 
yOe~008 1e-388-138e 95:88:8) — HBBcom. BacSopcomnasy 104351 12) 
: 271 7 MESSAGE _VECTOR = 0; ! Set the message Nargs 
; af 7 me SoAGs VECTOR = .RocB procet RosTMy ]; ! Set the request number 
3s a 7 a Py CTOR = ,RQCB LROCB W 3 yy ee ' Set the username string length 
; 276 7 MESSAGE VECTOR (4) = ROCB CROCB_T_OSERNAMEJ; ' Set the username string addr 
; 275 74 MESSAGE_VECTOR [5] = ON_DSC; ! The "' on" field 
: eo? 75 MESSAGE VECTOR [6] = ~-LOL_NODENAME FOSCSW_LENGTH]; i Length of nodename 
; ar 7 MESSAGE _VECTOR = .LCLINODENAME CDSCSA-POINTERI; | Length of nodename 
; f f BESSA VECTOR 8] = ROCB CROCB_L_TEXT_LEN); ! Set address request descriptor 
; 380 7 ELSE | 
3 1 0 BEGIN ! Request with no reply expected 
; B 1 MESSAGE_VECTOR [0] = OPCS_USERMSG; ! Set message code 
; § SSAGE_VECTOR Lij = 0; ! Set number of paramters 
; «6284 ESSAGE_VECTOR 3 = .ROCB CROCB_W_USERNAMELEND; ' Set the username string length 
; 285 4 MESSAGE VECTOR = RQCB CRQCB_T_OSERNAME)J; ' Set the username string addr 
; a6 a MESSAGE_VECTOR [4] = DSC; ! The ‘' on" field 
: 6 MESSAGE-VECTOR (5) = .LUL_NODENAME [DSCS$W_LENGTH]; / Length of nodename 
; 288 8 MESSAGE _VECTOR § = .LCLINODENAME CDSCSA-POINTERI; § Length of nodename ; | 
3 44 8 3 3 Sapam VECTOR = RQCB CRQCB_L_TEXT_LEN]; ! Set address request descriptor 
; 291 0290 FORMAT _MESSAGE (.RQCB, MESSAGE VECTOR); ! Format the message 
; 38 8 4 z NOTIFY_LISTED_OPERATORS (.ROCB) | 
; 294 8 38 BEGIN 
; 295 94 ’ 
; 2% 0295 ! At least one operator was notified of the request, so send it off to the cluster. 
; 297 0 ! Note that NOTIFY_LISTED_OPERATORS returns true if a remote operator is enabled for the 
3 oS 8 44 request, even if no operators on the local node were notified. 
3 300 0699 CLUSMSG_RQCB_SEND (-1, CLM__REQUEST, .RQCB); ' Send it everywhere | 
3 030 ! If the request expects a reply, then queue the RQCB 
3 3 } onto the OCD for future reference. Log the request. 
; 030 16 ee ta (.RQCB); | 
; 030 IF -RQCB CROCB_W_REPLYMBX] NEQ 0 : 
° 0 0 THEN | 
3 0307 4 BEGIN R 
3 0308 4 uNsave (.RQCB, .OCD COCD_L_RQSTFLINK]); E 
; 0309 4 OCD COCD w_ROSTCOUNT) = [OCD [OCD wW ROSTCOUNT) + 1; see) L 
; 031 4 $bblock Proce RQCB_L_OPTIONS], OPCSV_NOBRD] = 0; ' Clear option bits L 
3 0311 4 Sbblock CROCB CRQCB-L-OPTIONS], OPC$V"NOLOGJ = 0; Yi 
; 0 ! 4 seth C 
: 5 : DEALLOCATE_RQCB (.RQCB); \ ! Dellocate the RQCB 
s 1 
E 1 
: 1 
3 : 1 
; 0 4 
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8 ia ae 
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MESSAG E VECTOR 0} = Pcs. NOPERATOR; 

RE SSAG E-VECTOR 

FORMA RE SSAGE i, MESSAGE_VECTOR); 
END_R REPE (ROC 

toe. ALESAGE ¢ cee: 


DEALLOCATE_RQCB (.RQCB); 
END; 


OFFC 00000 
0000G CF 9E 0000 
5A 00006 CF 9€E 0000 
5E 8C AE 9E 0000C 
08 AE 40 8F 9A 00010 
oc ag 10 AE 9E 00015 
5 04 AC DO QOO1A 
0042 «BF 62 81 0001 
01 1& 000 
04 000 
4004 8F BB 00026 
0000G CF 2 Fe 002A 
01 0 4 F 
“ 00038 
50 AE 04 000 
56 6E 00 000 
50 38 8=A6 YE 00039 
57 68 Ad YE 0003D 
67 60 Di 00041 
1 Fs 0044 
16 35 ag 02 EO 00046 
0 A 02 A 2 004 
04 005 
08 3 A6 E8 000 
50 AE 0005807C 8F DO 00056 
54 AE 04 0005E 


43 - 
12-888: 


18: 


23: 


3$: 
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REQUEST_HANDLER 
OPCSOPCOMROST 
V04-000\ 


L_NOD 
OBAL gTaTUs. EREQUEST_N UMBER 

ECK K REQUEST, CLUSMSG~CONV_CLM_RQCB 
USU 


QCB_SEND 
itoca INCAS SEQUENCE 
mc6é, eDEALLOCATE _RQCB 


FILE D_OCD 
shee "406 HE SSAGE 
Y it ORS 
LCL_RODENAM opesee T_VM 
i esceTasG. {IBSSTOP ~ 


SCODES,NOWRT,2 
REQUEST HANDLER, Save R2,R3.R4,R5.R6,R7,R8,- 
FORMAT. MESSAGE R11 
LCL_NOBEN. 
<118(SP P), 
N_OSC 
ON bur” “ON _DSC+4 
BUFFER DESC, R2 
(R2 106 


\ 
LC 
GL 
CH 
CL 
C 


#°M<R2,S 
#2, ge REQUEST 


me sande veCTon 


RO 
65, R7 
7) 


rn UND 
PDO oO 
oOfnn 
~-@ww 
> Do 
— 
> +h) 


= 
™m 
“ 
Oo 
~~ -7 
»@ 
o 
~ 


4$ 
(RO), 2(R?) 
4 


ie0g73, a MESSAGE _VECTOR 
MESSAGE. VECTOR+4 
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OPCSOPCOMRQST 16-Sep-1984 1 AX-11 Bliss-32 v4.0-74 
OOe e008 14- ~tep- 1984 9}: 36: 2) OPCOM. SRC JOPCOMRQST.B32;1 
' 52 06 A 26 €1 00061 4$: ADDL3) # 4(R2), MSG 
4 0084 C6 SE p 66 MOVAB t39tng ), 
6 1A 8 : 6B MOVZWL g5(m (MSG). ne 
1A 0 ¢f LEQ 
0088 : 9F 000 PUSHAB 136(R6) 
DD 07 PUSHL R 
00006 cf FB 0007 CALLS #2, OPCSGET_ vM 
29 p ore BLBC SrATOS. $ 
0088 06 1c A 68 2 0082 nOVCS (RB), Ssalesay. @136(R6) 
50 AE 0005807¢ Br D9 0085 5$ mOVL sister . “WEESSASE- VECTOR 
04 53 COA 83 00096 6$ CMPB aiRe)- 
0 if 009A BNEQ 
53 1 D0 0009¢ MOVL #1, SCOPE_LIMIT 
4 11 9009F BRB 85" 
53 53. Ab 9A OOOAl 7S: MOVZBL 83(R6), SCOPE_LIMIT 
50 D4 OOOAS 8S: CLRL - FOUN 
5 53. A6 9A OO0A7 MOVZBL 83(R6), SCOPE 
é 52 D1 OOOAB 9$ CMPL SCOPE, SCOPE_LIMIT 
16 19 OOOAE BLSS 
21 50 cs 90080 BLBS FOUND, 11$ 
04 AE F 0008 PUSHAB OCD 
67 DD 00086 PUSHL (R7) 
3¢ DD 00088 PUSHL SCOPE 
00006 CF 0 FB OOOBA CALLS #3, FIND_OCD 
9 50 €8 O00BF BLBS FOUND, 9$ 
3 D7 000C2 DECL SCOPE 
E 11 b00¢4 BRB 
0B 0 £8 000C6 10$: LBS FOUN 
MOVL ff Ine SSace _VECTOR 
ee rn) es a Geet CRE aH vect 
50 AE D3 00D4 11$: TSTL MESSAGE “VECTOR 
15 13 00007 BEQL =-‘13$ 
50 AE 9F 00009 PUSHAB MESSAGE_VECTOR 
56 DD 0000C PUSHL RS 
68 02 FB QOODE CALLS FORMAT_MESSAGE 
50 AE 9F 000E1 PUSHAB eg hOB _VECTOR 
56 DD QO0E4 PUSHL R 
00006 CF 02 FB 000E6 CALLS SEND_REPLY 
010D 31 O00EB 138 BRW $ 
” 53 4 O9re 98: Bt BSB lng 
st AG 0B A 5 bor MOVB Re epde. $3 (RO) 
6A 8 OOFB TSTW LCL _NODENAME 
6 O0FD BEQL 4$ 
7E 1 7D QOOFF MOVG #1, =(SP) 
10 AE 9F 001 PUSHAB ON. DSC 
14 AE 9F 001 PUSHAB ON Ds¢ 
000582AB 8F DD 001 PUSHL #3611 1 
000000006 90 5 F 0106 CALLS @ SYSSGETMSG 
9 : d0 0011 VL RO. STAT us 
iq O18 LBS §_ STATUS, 15$ 
9 DD 00118 PUSHL STATUS 
000000006 00 01 FB O11p CALLS #1, LIBSSTOP 
04 00124 RET 


0260 


ae naa 


$0006 CF 
"0 CF 
7? A6é 
5 AE 
58 AE 
2f AE 
6 AE 
64 AE 
68 AE 
6C AE 
70 AE 
50 AE 
58 AE 
5C AE 
60 AE 
64 AE 
68 AE 
6C AE 
68 
0000G CF 
28 
7E 
0000G CF 
0000G CF 
x¢ CO 
56 
50 
54 AO 
50 AE 
68 
0000G CF 
00006 CF 
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:50 OPCOM. SRCJOPCOMROST .B32;1 

ON_DSC 

60TR6), R3 

46(R6) 

16$ 

REQUEST NUMBER 

#1, CLUSUTIL_INCR_SEQUENCE 

RO, REQUEST RUMBER 

REQUEST _NUMBER 12(R6) 

#360619> MESSAGE_VECTOR 

MESSAGE _VECTOR+4 

W2CR6); MESSAGE_VECTOR+8 
116(R6), MESSAGE VECTOR+12 

R3, MESSAGE _VECTOR+16 

ON’ DSC, MESSAGE_VECTOR+ 

LCC_NODENAME, MESSAGE VECTOR+24 
CL“NODENAME+ GE_VECTOR+28 


L“NODENAME+4, MESSAGE_VECTOR+24 
RB, MESSAGE VECTOR+28 
MESSAGE _VECTOR 

#2, FORMAT_MESSAGE 

#1, NOTIFY_LISTED_OPERATORS 
RO. 18$ 

#14 

#1, -(SP) 

#5, CLUSMSG_RQCB_SEND 

#1, LOG_MESSAGE 

46(R6) 


(R6), @60(R2) 
ocd R 

58(RO) 

RQCB, RO 

#3, 84(RO) 

46(R6) 

#360545, MESSAGE_VECTOR 
MESSAGE _VECTOR+4 
MESSAGE ~VECTOR 

#2, FORMAT_MESSAGE 

#1, SEND_REPLY 


#1, LOG_MESSAGE 
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; 3 ! GLOBAL ROUTINE REQUEST_CLM_HANDLER (BUFFER_DESC : Sref_bblock, CLM : Sref_bblock, LEN) : NOVALUE = 
; 1 164 

: ! : Functional description: 

3 § } ! This routine is the handler for all REQUEST messages received by OPCOM from remote nodes. 
; , 1: 

; 5 : Input: 

: § 1 i BUFFER_DESC = pointer to eonsegs from remote node, including SSNDOPR header 
3 3 1! CLM =- ointer to CLMRQCB structure 

: $0 : H LEN - ength of LEN 

; 1 1°! Implicit Input: 

: Be 1 me : 

3 535 1! None. 

3 54 1! 

3 55 1 ! Output: 

3 $29 1! 

3 0357 1! None. 

7 BEF | swotice cuts 

3 ! Implict output: 

: 030 11” a 

; 0361 1! Some accounting data will be updated 

: 8305 : to reflect the receipt of the message. 

; 0 1 | Side effects: 

3 b3e3 1! 

: 28 | ae 

; 0368 1 | Routine value: 

3 8368 1! 

3 39 1! None. 

3 0371 1 !<- 

5 bere 1 

: Beez BEGIN ! Start of REQUEST_CLM_HANDLER 
; 0375 LOCAL 

3 378 RQCB : $ref_bblock, ' RQCB data structure 

3 037 OcD : $ref_bblock, ! OCD data structure 

; Bere MCB : $ref_bblock, ' MCB data structure 

; 0379 MSG : Sref_bblock, ! Pointer to user request 

3 $89 FOUND : LONG, ' Boolean 

3 1 SCOPE : LONG, ' Scope of request 

3 386 SCOPE_LIMIT : LONG, ' Loop control 

3 STATUS : LONG; 

3 84 

: i 

; 8 i Check the version number of the message. If the message is from any other version, 
: 5 : simply ignore it. 

; 4 if cln CCLM_B_DS_VERSION] NEQ CLMRQCB_K_DS_VERSION 

: 3 35 RETURN DUMP_LCG_FILE (.BUFFER_DESC, ZASCID ‘CLM__REQUEST mismatch"); 
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¢ ; Allocate an RQCB and convert the message RQCB into the new RQCB 
if NOT CLUSMSG_CONV_CLM_RQCB (.CLM, RQCB) 

RETURN DUMP_LOG_FILE (.BUFFER_DESC, ascid_INVALIDRQCB); 
i Find an OCD that can handle this request. The OCD is selected 
! according to the SCOPE and UIC of the requestor. If the SCOPE 
' is unapes ited. then look for operator coverage etertvor in the 
! Least privileged scope and continuing to the most privileged. 
: If no OCD is found, then dismiss the request. 
iF (.RQCB CROCB_B_SCOPE] EQL OPC$K_UNSPEC) 

SCOPE_LIMIT = OPCSK_SYSTEM 

SCOPE LIMIT = .RQCB CROCB_B_SCOPE]; 
FOUND = F 3 
SCOPE = .RQCB CROCB_B SCOPE); 
WHILE (.SCOPE GEQ .SCOPE_LIMIT) AND (NOT .FOUND) DO 

IF NOT (FOUND = FIND_OCD (.SCOPE, .RQCB CRQCB_L_UIC], OCD)) 


N 
SCOPE = .SCOPE - 1; 
IF NOT .FOUND 
THEN 
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BEGIN 
DEALLOCATE_RQCB (.RQCB); 
RETURN; 
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END; 
RQCB CROCB_L_OCD) = .OCD; ! Save OCD address 
RQCB RQCB_B_SCOPE] = .OCD COCD_B_SCOPE); ! Set request scope 


i Tell the world about the request, first to the log file, then to the operators. We 
know that an operator was notified, otherwise the remote node would not have sent the 
! message. 

1 


LOG_MESSAGE (.RQCB); 
NOTIFY _LISTED_OPERATORS (.RQCB); 


i at least one operator was notified of the request. If the request expects a reply, 
: then queue the RQCB onto the OCD for future reference. 


iF .RQCB CRQCB_W_REPLYMBX)] NEQ 0 
THEN 
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3 

i BEGIN 

4 39 INSQUE (.ROCB, OCD COCD_L ROSTELINKI) 
44 40 OCD COCD Ww _ROSTCOUNT) = [OCD COCD Ww RQSTCOUNT) + 1; Tare 
44 41 $bblock FRacB ROCB_L_OPTIONS), OPCSV_NOBRD) = 0; ° ! Clear option bits 
4 4g $bblock CROCB CROCB-L“OPTIONSJ. OPCS$V=NOLOG) = 0: 

445 4 END 
44 444 2 ELSE 
447 445 DEALLOCATE_RQCB (.RQCB); ' Dellocate the RQCB 
449 bce? END; ! End of REQUEST_CLM_HANDLER 


- 
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Obs 2005 14- atep- 1382 9}: 36:3) OPCOM. SRCJOPCOMROST.B32;1 9° 03) 
-PSECT S$PLIT$,NOWRT,NOEXE,2 ; 
69 6D 20 54 53 45 55 5 45 5 5 sf 4p 4¢ i $008" P.AAB: .ASCII \CLM__REQUEST mismatch\<0><0><0> ; : 
9106001 0018 P.AAA: .LONG 17696741 : : 
0060000" 0001C¢ ;ADDRESS P.AAB 3 : 
.EXTRN ASCID_INVALIDRQCB : 
<PSECT SCODE$,NOWRT,2 : 
001 000 eENTRY R ougsT. CLM_HANDLER, Save R2,R3,R4 3; 0337 : 
5 08 C3 20009 SUBL2 Pas : ; 
§ 08 AC DO 0000 MOVL LM SR > 0390 ; 
0 02 A2 91 00009 CMPB (RO), #2 : ; 
06 13 0000D BEQL 5 : : 
0000" CF 9F OOOOF PUSHAB P.AAA + 0392 F 
10 11 00013 BRB $ : : 
4004 8F 8B 9001 1$: PUSHR #*M<R2,SP> + 0396 : 
0000G CF 98 fe 0019 CALLS #2, CLUSMSG_CONV_CLM_RQCB a ; 
OD 5 : O001E LBS—SséR F : 
00006 CF SF 00021 PUSHAB ASCID_INVALIDRQCB + 0398 : 
04 AC OD 00 5 2s: PUSHL BUFFER DESC F : 
00006 CF 02 FB 00028 CALLS #2, DUMP_LOG_FILE : : 
04 00020 RET ; : 
52 6E DO 000¢¢ 3$: MOVL  RQCB, R2 + 0406 : 
04 53 ag 91 00031 CMPB Bored) 8 #4 : ; 
05 12 00035 BNEQ 4$ : : 
54 01 D0 00037 MOVL #1, SCOPE_LIMIT > 0408 : 
04 11 O003A BRB 5$ : : 
54 53 A2 9A 0003C 48: MOVZBL 83(R2), SCOPE_LIMIT + 0410 : 
50 D4 00040 5$: CLRL FOUND > 0411 ; 
53 53 Ag 9A 00042 MOVZBL 83(R2), SCOPE + 041 : 
54 53 D1 00046 6$: CMPL SCOPE. store “LIMIT : 041 ; 
17 19 00049 BLSS § ; 3 
17 50 €8 00048 BLBS = FOUND, 8$ : : 
04 AE SF OO04E PUSHAB OCD > 0414 ; 
68 A2 DD 00051 PUSHL  104(R2) : : 
53 DD 00054 PUSHL i” E : : 
00006 CF 03 FB 00056 CALLS #3, FIND oc : 3 
E8 50 EB 00058 BLBS FOUND, 6S : ; 
53 O05 DECL SCOPE > 0416 : 
gs 11 0006 BRB 6$ + 0414 ; 
33 0 €9 0068 7$: BLBC FOUND ; > 0417 ; 
04 AE DO 00065 8$: MOVL OCD, > 0423 : 
4 a2 5 p0 0069 MOVL 36 R2) : ; 
3A 0B A3 90 00 $0 MOVB iH 3(R2) > 0424 ; 
52 DD 00072 PUSHL + 0430 : 
00006 CF or FB 00074 CALLS i. LOG_MESSAGE : : 
2 DD 00079 PUSHL 3 0431 | : 
0000G CF 01 F dh CALLS #1 NOTIFY_LISTED_OPERATORS g 3 
2e Ag : 9 ist 46(R2) : 0436 | ; 
3C Bs 62 OF 6 INSQUE (R2), 960(R3) > 0439 : 
0 04 AF D 9 MOVL RO > 0440 : 
A A Bb 0080 INCW PROS : : 
50 6E DO 00090 MOVL RQCB, RO : 3 


voe-000 ~$ep-198¢ 12:50:50 — EGPcon. SACSOPCOMMOST.-039; 1 Sg 


54 AO BICB2 #3, 84(RO) : si : 

: PUSHER : 044 ; 

00006 CF CALLS #1, DEALLOCATE_RQCB : : 

4 RET : 0447 | 

; Routine Size: 160 bytes, Routine Base: SCODES + 0203 : 
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v04 14-Sep-19 OPCOM.SRC JOPCOMROST.B32;1 (4) 
H 2 ; ces ! GLOBAL ROUTINE REQUEST_CLM_CHECK_HANDLER (BUFFER_DESC : Sref_bblock, CLM : $ref_bblock, LEN) : NOVALUE = 

3; 6 t2 1 !e4 
3 2 ¢ ri 1 : Functional description: 
3 2 $ 2 $ ; } This routine is the handler for all CHECK_REQUEST messages received by OPCOM from remote nodes. 

: 285 <8, 4 | Input 

; : input: 

: 460 2§ Dawe | 
; 4 128 1! BUFFER_DESC = pointer to attesy4 from remote node, including SSNDOPR header 

; & 4 7; CLM - ointer to CLMRQCB structure 

; 46 460 1! LEN - ength of LEN 

> 464 0461 1! 

; 465 0462 1 ! Implicit Input: 

:; 46 0464 1! None. 

: 468 0465 1: | 
; 469 0466 1 ! Output: 

: 470 0467 1 | | 
; 471 0468 1! None. 
; 47 0469 1! 
; 47 0470 1! Implict output: 
; 474 0471 1! 

; 475 0472 1! Some accounting data will be updated 

; 476 0473 1! to reflect the receipt of the message. 

3: 477 0474 1! 
; 478 0475 1! Side effects: 
3; 479 0476 1! 
: 480 0477 1! None. 

; 481 0478 1! 

; 48 0479 1 ! Routine value: | 
; 48 0480 1! 

; 484 0481 1! None. 

; 485 0482 1 !-- 

; 486 0483 1 

: 487 0484 2 BEGIN ! Start of REQUEST_CLM_CHECK_HANDLER 

; 488 0485 

: 489 0486 LOCAL 

: 490 0487 RQST $ref_bblock, ' RQCB data structure 

3; 491 0488 RQCB $ref_bblock, ' RQCB data structure 
: 492 0489 ocD : $ref_bblock, ! OCD data structure 
; 493 0490 MCB : $ref_bbiock, ! MCB data structure 
> 494 Be3) MSG : $ref_bblock, ' Pointer to user request 
; 495 rh RQOST_ COUNT : LONG, ' Count of requests | 
: 4% 049 FOUND LONG, ! Boolean 
; 497 0494 SCOPE : LONG, ' Scope of request 

; 498 95 SCOPE LIMIT : LONG, ! Loop control 

; 499 436 STATUS : LONG; | 
a : ‘3 
: 6 39 ' Check the version number of the message. If the message is from any other version, 
; $0 230 simply ignore it. 

; 203 30¢ ren CCLM_B_DS_VERSION]) NEQ CLMRQCB_K_DS_VERSION 

; 309 504 RETURN DUMP_LOG_FILE (.BUFFER_DESC, ZASC!® "CLM__CHECK_REQUEST mismatch'); 
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; 508 5 ' 

; 44 : $ Allocate an RQCB and convert the message RQCB into the new RQCB 

3 1} 8 if NOT CLUSMSG_CONV_CLM_RQCB (.CLM, RQCB) 

; 18 219 RETURN DUMP_LOG_FILE (.BUFFER_DESC, ascid_INVALIDRQCB); 

; 515 se i Find an OCD that can handle this reqyest The OCD is selected according to the SCOPE and UIC of the 
3 16 1 ! requestor. If the SCOPE is unspecified, then look for operator coverage starting in the least 
; \f a1 } privileged scope and continuing to the most privileged. If no OCD is found, then dismiss the request. 
: $19 216 if (.RQCB CROCB_B_SCOPE] EQL OPC$K_UNSPEC) 

; 0 1 THEN 

; 1 518 SCOPE_LIMIT = OPCSK_SYSTEM 

; ¢ 519 ELSE 

; 520 SCOPE LIMIT = .RQCB CROCB_B_SCOPE]; 

: 526 521 FOUND = FALSE; 

3 329 B2 ¢ SCOPE = .RQCB CROCB_B SCOPE); 

Ss $ 5 WHILE (.SCOPE GEQ .SCOPE_LIMIT) AND (NOT .FOUND) DO 

: H i B2 ¢ IF _ (FOUND = FIND_OCD (.SCOPE, .RQCB CROQCB_L_UICIJ, OCD)) 

; 509 0526 SCOPE = .SCOPE = 1; 

5 ja 05 IF NOT .FOUND 

3 23) 0528 THEN 

. > ¢ 0529 BEGIN 

=? Se 0530 DEALLOCATE_RQCB (.RQCB); 

; 534 0531 RETURN; 

3 335 05 ; END; 

; 536 05 RQCB FRAcB_L_ocD] = .0CD; ! Save OCD address 

3 tH ge r RacB RQCB_B_SCOPE] = .OCD COCD_B_SCOPE]; ! Set request scope 

: 539 0536 i Search through the roquests queued to this OCD for the specified request. If it is already present, 
: 279 beae } then free the RQCB and return. 

; 24¢ 0539 2 RQST_COUNT = .OCD [OCD W_ROSTCOUNT]; ! Get # of requests 

; «54 0540 RQST = .OCD COCD_L_RQSTFCINKI; ! Get first request address 

; ee 326) WHILE OST COUNT GTR 0 DO 

: 546 0803 IF .RQCB CROCB_L_ROSTNUM] NEQ .RQST CRQCB_L_RQSTNUM] 

; 547 0544 THEN 

3 28 pees 4 BEGIN 

; 4549 546 4 RQST_COUNT = .RQST_COUNT -_1; ! Decrement request count 

; 330 0547 4 ROST~= .ROQST CROCBIL_FLINK]; | Get address of next request RQCB 

3 $3¢ 0343 3 

; 22 550 4 BEGIN 

; 54 0551 4 DEALLOCATE_RQCB (.RQCB); 

; 555 0336 4 RETURN; 

; 228 55 3 

3 rH 220 , END: 

; 325 556 i Tell the world about the request, first to the log file, then to the operators. We 

: 269 557 ! know that an operator was notified, otherwise the remote node would not have sent the 
3 re 238 , message. 

; 68 560 2 LOG_MESSAGE (.ROCB); 

; 564 0561 2 NOTIFY_LISTED_OPERATORS (.RQCB); 
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; 565 6 ' | : 

: 66 s Everything looks good, add it to the List | ; 

; 568 65 INsQue (.ROCB, .OCD poco. ROSTFLINK3) j ; 

: i 266 OCD COCD_wW_ROSTCOUNT) = [OCD COCD_w_RQSTCOUNT) + 1; | ; 

; Ae 0568 7 END; ! End of REQUEST_CLM_CHECK_HANDLER : 

3 

} Ps 

-PSECT S$PLITS,NOWRT,NOEXE,2 : 

55 $1 45 52 5f 4B 43 45 48 43 5 sf 4p 46 43 2009 P.AAD: .ASCII \CLM__CHECK_REQUEST mismatch\<0> : : 

010E001B 0003C P.AAC: .LONG 17694747 : : 

00000000" 00040 .ADDRESS P.AAD : : 

-PSECT $CODE$,NOWRT,2 | : 

003¢ 00000 .ENTRY REQUEST_CLM_CHECK HANDLER, Save R2,R3,R4,R5 ; 0448 : 

5E 08 C2 00002 SUBL2 #8, SP : 3 

52 08 AC 00 00005 MOVL CLM, R2 ; 0502 : 

02 02 A2 91 00009 CMPB ss 2 (RO), #2 : : 

06 13 0000D BEQL 1$ : 3 

0000" CF 9F OO0OF PUSHAB P.AAC : 0504 : 

10 11 00013 BRB : : 

4004 8F BB 00015 1$: PUSHR #°M<R2,SP> : 0508 : 

0000G CF 98 FB 00019 CALLS #2, CLUSMSG_CONV_CLM_RQCB ; : 

0 50 €8 OOO1E BLBS : : 

00006 CF 9F 00021 PUSHAB ASCID_INVALIDROQCB : 0510 : 

04 AC DD 00025 2$ PUSHL BUFFER DESC : 3 

00006 CF 02 FB 00028 CALLS #2, DUAMP_LOG_FILE : ; 

04 00020 RET : : 

53 6f DO O002E 3$: MOVL  RQCB, R3 : 0516 : 

04 53 AS (91 «00031 CMPB =ss«8 3(R}3), #4 : ; 

05 12 00035 BNEQ 4$ ; : 

54 oi D0 90037 MOVL #1, SCOPE_LIMIT : 0518 : 

4 11 O03 BRB 5$ 3 : 

54 53. AS OA 999 C 4$: MOVZBL 83(R3), SCOPE_LIMIT : 0520 : 

50 D4 049 5$: CLRL Fou 3 0541 : 

52 53. AS 9A 0004 MOVZBL 83(R3), SCOPE : 05 ; : 

54 3¢ D1 9046 6$: CMPL SCOPE, SCOPE_LIMIT : 0523 | : 

17 19 0004 BLSS ; : 

17 50 £8 00048 BLBS FOUND, 8$ a : 

04 AE SF 0004E PUSHAB + 0524 | : 

68 A3 DD 00051 PUSHL  104(R3) : | : 

52 DD 00054 PUSHL SCOPE : : 

00006 CF 03 FB 00056 CALLS #3, FIND_OCD : : 

£8 20 e 9038 BLBS §_ FOUND, 6$ F : 

D OF DECL 3 0526 : 

FA 11 000 BRB > 0524 : 

2 0 €9 006¢ 7$: BLBC FOUND, 10$ : 0527 : 

04 AE dO 00065 8$: MOVL OCD, : 0533 : 

24 A 52 D 90069 MOVL R 36(R3) 3 : 

3 A 0B A2 90 00060 MOVB 11(R2), 83(R3) > 0534 : 


; Routine Size: 174 bytes, Routine Base: S$CODE$ + 02A3 
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14- ~hep- 198 93: 36: 2) OPCOM. SRCJOPCOMROST. b3 31 . (4) | 
55 3A A2 3 0072 MOVZWL 58(R2) Rast COUNT : 0539 
4 C A2 06 0007 MOVL 60(R2). ROST™ + 0540 
55 D 007A 9$ TSTL - RQST_COUNT > 0541 

16 15 0007¢ BLEG)~=Ss«éd1'18 : 
70 Ab 70 Ad D 007 CMPL 112(R3), 112(RQST) + 0543 

9 1 08 BEQL 10$ ; 
5 07 000 DECL § RQST_COUNT t 0546 
54 64 00 00 7 MOVL (RQST), RQST : 0547. 
EE 11 0008A BRB 9$ + 0543 
DD 0008C 10$ PUSHL R3 : 0551 

00006 CF 01 FB 0008 CALLS #1, DEALLOCATE_ROCB : 
04 009 RET : 0550 
53 DD 00094 11$:  PUSHL R3 + 0560 

00006 CF 01 FB 00096 CALLS #1, LOG_MESSAGE ; 
3 Dd 00098 PUSHL R3 + 0561 

00906 CF 01 FB 0009D CAL #1, NOTIFY LISTED_OPERATORS : 
C B62 63 O€ 000A2 INSGUE (R3), a60(R2) : 0565 
50 04 AE DO 000A6 MOVL 3, RO + 0566 

3A AO B6 OOOAA INCW  58(RO) : 
04 000AD + 0568 


5 dkny tees 09533 4.7 
; Lines/CPU Min: 

; seueneOLS-Wens 16088 

; Y Used: 183 pages 
, wines ation Complete 
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9652008 14- oben 138 93; 38: 2) OFCOM. SRCTOPCOMRGES «3951 . (5) 
; 573 END ! End of OPCOMROST : 
: 574 $890 0 ELUDOM | ‘ 
| ; 
| . 
: PSECT SUMMARY | : 
; Name Bytes Attributes | ; 
: SCODES 849 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, paged | Eee batt fs : 
; SPLITS 68 NOVEC,NOWRT, RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) | : 
Sic 
; Library Statistics 3 
eee ee | ees ae Syubels soon Pages Processing ; 
; File Total Loaded Percent Mapped Time ; 
: _$255$DUA28:(SYSLIBILIB.L32;1 18619 13 0 1000 00:01.9 : 
: ~=$255$DUA28: COPCOM.OBJJOPCOMLIB.L32;1 633 32 5 43 00:00.9 : 
: COMMAND QUALIFIERS : 
: BLISS/CHECK=(FIELD, INITIAL ,OPTIMIZE)/LIS=LIS$:OPCOMRQST/OBJ=OBJ$:OPCOMRQST MSRC$:OPCOMRQST/UPDATE=(ENH$:OPCOMRQST) : 
3 Biaes 849 code + 68 data bytes : 
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